home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / iritsm3s.zip / CONE2CYL.IRT < prev    next >
Text File  |  1991-09-04  |  771b  |  37 lines
  1. #
  2. # Intersection of cone and a cylinders (more complex this time):
  3. #
  4. #            Created by Gershon Elber,    Sep. 89
  5. #
  6.  
  7. save_mat = view_mat;
  8. view_mat = view_mat * scale(vector(0.2, 0.2, 0.2));
  9. save_res = resolution;
  10.  
  11. resolution = 32;
  12. cone1 = cone(vector(0, 0, -1),vector(0, 0, 4), 2);
  13. cylin1= cylin(vector(0, 3, 0.3),vector(0, -6, 0), 1);
  14. cube1 = box(vector(-2, -2, -2), 4, 4, 3.6);
  15.  
  16. s1 = (cone1-cylin1)*cube1;
  17. beep(500,300);
  18. view(list(s1), true);
  19. free(cylin1);
  20. free(cone1);
  21. free(cube1);
  22.  
  23. resolution = 16;
  24. cylin2= cylin(vector(0, 0, -2),vector(0, 0, 6), 0.5);
  25. s2 = s1 - cylin2;
  26. beep(500,300);
  27. interact(list(s2), false);
  28. free(cylin2);
  29. free(s1);
  30.  
  31. s2 = convex(s2);
  32.  
  33. save("cone2cyl", list(view_mat,s2));
  34.  
  35. resolution = save_res;
  36. view_mat = save_mat;
  37.